home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / ba_v6_1.sda / MENU (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  47 lines
  1. 2 POKE53280,0:POKE53281,0:PRINTCHR$(142):POKE788,52:POKE792,193
  2. 20 PRINT"[147][154]       B A N K   A C C O U N T S       "
  3. 22 C1$="":C2$="[154]":AN=1
  4. 24 SL$(1)=" USE YOUR ACCOUNTS "
  5. 26 SL$(2)=" START AN ACCOUNT "
  6. 28 SL$(3)=" PROGRAM INFORMATION "
  7. 30 SL$(4)=" PROGRAM MODIFICATIONS "
  8. 31 SL$(5)=" SEARCH YOUR FILES "
  9. 32 SL$(6)=" MAILING LABELS "
  10. 34 SL$(7)=" RETURN TO BASIC "
  11. 36 PRINT"        [150]DESIGNED AND WRITTEN BY"
  12. 38 PRINT"             [154]JIM ABRONSKI"
  13. 40 PRINT"            [150]COPYRIGHT 1988"
  14. 42 PRINT"[158]   USE  UP [158][146] OR  DOWN [146][158] TO CHOOSE:"
  15. 44 FORX=1TO7:PRINT"       ";C1$;SL$(X):NEXTX
  16. 46 PRINT"[158]   PRESS  RETURN [146][158] TO ENTER SELECTION.[145]":GOSUB84
  17. 48 IFAN>7THENGOSUB86:GOTO48
  18. 50 G1$="BANK ACCOUNTS":IFAN=3THENG1$="PROGRAM INFO."
  19. 52 IFAN=2THENG1$="START ACCT."
  20. 54 IFAN=4THENG1$="MODIFICATIONS"
  21. 55 IFAN=5THENG1$="FILE SEARCH"
  22. 56 IFAN=6THENG1$="MAILING LABELS"
  23. 58 IFAN=7THENSYS64738
  24. 60 PRINT"[147]      *** [158]ONE MOMENT PLEASE ***"
  25. 64 PRINT"[144]LOAD"CHR$(34)G1$;
  26. 66 PRINT CHR$(34)",8";
  27. 68 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END
  28. 84 PRINT"       ";C2$;SL$(1)
  29. 86 GETAN$:IFAN$<>""THEN98
  30. 88 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
  31. 90 IFJV=1THENAN$=CHR$(145):FORT=1TO30:NEXTT:GOTO98
  32. 92 IFJV=2THENAN$=CHR$(17):FORT=1TO30:NEXTT:GOTO98
  33. 94 IFFR<>16THENAN$=CHR$(13):FORT=1TO30:NEXTT:GOTO98
  34. 96 GOTO86
  35. 98 IFAN$=CHR$(13)THENRETURN
  36. 100 IFAN$=CHR$(145)ORAN$=CHR$(29)THEN106
  37. 102 IFAN$=CHR$(17)THEN114
  38. 104 GOTO86
  39. 106 LN=AN:AN=AN-1:IFAN=0THENAN=7
  40. 108 PRINT"[145]       ";C1$;SL$(LN)
  41. 110 IFLN=1THENPRINT"       ";C2$;SL$(AN):GOTO86
  42. 112 PRINT"[145][145][145]       ";C2$;SL$(AN):GOTO86
  43. 114 LN=AN:AN=AN+1:IFAN=8THENAN=1
  44. 116 PRINT"[145]       ";C1$;SL$(LN)
  45. 118 IFLN=7THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]       ";C2$;SL$(AN):GOTO86
  46. 120 PRINT"       ";C2$;SL$(AN):GOTO86
  47.